inherited frmCad_TabDesc: TfrmCad_TabDesc
  Left = 156
  Top = 208
  Caption = 'Cadastro de Descontos Especiais'
  ClientHeight = 200
  ClientWidth = 694
  OldCreateOrder = True
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 694
    Height = 33
    object lblCodEntidade: TLabel
      Left = 72
      Top = 8
      Width = 30
      Height = 14
      Caption = '00000'
    end
    object Label1: TLabel
      Left = 112
      Top = 8
      Width = 307
      Height = 14
      Caption = '-   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
    end
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 50
      Height = 14
      Caption = 'Entidade:'
    end
  end
  inherited Panel2: TPanel
    Top = 33
    Width = 694
    Height = 100
    object grpDesc: TGroupBox
      Left = 3
      Top = 50
      Width = 688
      Height = 47
      Align = alBottom
      TabOrder = 0
      object edValor: TCurrencyEdit
        Left = 72
        Top = 16
        Width = 121
        Height = 21
        AutoSize = False
        Ctl3D = False
        DisplayFormat = '% ,0.00'
        ParentCtl3D = False
        TabOrder = 0
        OnKeyDown = edValorKeyDown
      end
    end
    object dbg: TDBGrid
      Left = 3
      Top = 3
      Width = 688
      Height = 47
      Hint = 'Clique duas vezes no desconto p/ edit'#225'-lo'
      Align = alClient
      DataSource = DS
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnCellClick = dbgCellClick
      OnDblClick = dbgDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Desc1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc3'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc4'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc5'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc6'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc7'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc8'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc9'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Desc10'
          Visible = True
        end>
    end
  end
  inherited Panel4: TPanel
    Top = 133
    Width = 694
    inherited btnGravar1: TBitBtn
      Left = 15
    end
    inherited btnCancelar1: TBitBtn
      Left = 289
      Top = 12
    end
    inherited btnFechar1: TBitBtn
      Left = 586
    end
    inherited BtnEliminar1: TBitBtn
      Left = 160
      Top = 12
    end
    inherited btnlistagem1: TBitBtn
      Left = 440
      Top = 9
    end
    inherited btnGravar: TFlatButton
      Left = 15
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Left = 153
      OnClick = BtnEliminarClick
    end
    inherited btnCancelar: TFlatButton
      Left = 291
    end
    inherited btnlistagem: TFlatButton
      Left = 429
    end
    inherited btnFechar: TFlatButton
      Left = 567
    end
  end
  inherited BS: TStatusBar
    Top = 181
    Width = 694
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 608
    Top = 9
    object CDSDesc1: TFloatField
      FieldName = 'Desc1'
    end
    object CDSDesc2: TFloatField
      FieldName = 'Desc2'
    end
    object CDSDesc3: TFloatField
      FieldName = 'Desc3'
    end
    object CDSDesc4: TFloatField
      FieldName = 'Desc4'
    end
    object CDSDesc5: TFloatField
      FieldName = 'Desc5'
    end
    object CDSDesc6: TFloatField
      FieldName = 'Desc6'
    end
    object CDSDesc7: TFloatField
      FieldName = 'Desc7'
    end
    object CDSDesc8: TFloatField
      FieldName = 'Desc8'
    end
    object CDSDesc9: TFloatField
      FieldName = 'Desc9'
    end
    object CDSDesc10: TFloatField
      FieldName = 'Desc10'
    end
  end
  object DS: TDataSource
    DataSet = CDS
    Left = 640
    Top = 9
  end
end
